home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / RLaB / rlib / mean.r < prev    next >
Text File  |  1994-04-25  |  537b  |  27 lines
  1. //-------------------------------------------------------------------//
  2. //
  3. //  Syntax:    mean ( A )
  4.  
  5. //  Description:
  6.  
  7. //  Calculate the mean value. If the input is a 1xN, then compute the
  8. //  mean value of all the elements. 
  9.  
  10. //  If the input is a MxN matrix the compute a row matrix of the mean
  11. //  value of each column of the input. 
  12. //
  13. //-------------------------------------------------------------------//
  14.  
  15. mean = function(x)
  16. {
  17.   local(m);
  18.  
  19.   m = size (x)[1];
  20.   if( m == 1 ) 
  21.   { 
  22.     m = size (x)[2];
  23.   }
  24.  
  25.   return sum( x ) / m;
  26. };
  27.